home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / CRS / crs48.d81 / digi0820.arc / DIGIEDIT (.txt) < prev    next >
Commodore BASIC  |  2009-10-10  |  2KB  |  27 lines
  1. 100 POKE55,0:POKE56,16:CLR:N=PEEK(254):U=PEEK(251):IFNTHENS=INT(1000/U+.5)
  2. 110 A=0:C=64:D=PEEK(186):F=0:L=0:A$="":N$="":C$="":T$="[147] [196][201][199][201] [197][196][201][212][207][210] "
  3. 120 PRINTT$:PRINT"1. [204]OAD [198]ILE":PRINT"2. [195]HOOSE [195]LIP":PRINT"3. [211]AVE [195]LIP"
  4. 130 PRINT"4. [195]OMBINE [195]LIPS":PRINT"5. [209]UIT":PRINT"[205]AKE [211]ELECTION"
  5. 140 GETA$:A=VAL(A$):ONAGOTO150,190,250,270,350:GOTO140
  6. 150 PRINTT$:PRINT"[206]AME OF [198]ILE":INPUTN$:PRINT"[196]RIVE #  (8-11)"
  7. 160 PRINT" "D:INPUT"[145]";A$:D=VAL(A$):IFD<8ORD>11THENPRINT"[145][145]":GOTO160
  8. 170 OPEN2,D,2,N$+",P,R":GET#2,A$,A$,A$:U=ASC(A$+CHR$(0)):S=INT(1000/U+.5)
  9. 180 POKE  254,16:SYS 3585:N=PEEK(  254)-16:GOTO120
  10. 190 PRINTT$:PRINT"[197]NTER [208]LAY [211]PEED (4 - 20)"
  11. 200 PRINT" "S:INPUT"[145]";A$:S=VAL(A$):U=INT(1000/S):T=INT(U-50)/5:POKE  251,T
  12. 210 PRINT""N"[208]AGES IN [205]EMORY":PRINT"[198]IRST [208]AGE":PRINT" "F:INPUT"[145]";A$:F=VAL(A$)
  13. 220 PRINT"[204]AST [208]AGE":PRINT" "L:INPUT"[145]";A$:L=VAL(A$):IFL>NORF=>LTHEN210
  14. 230 POKE  254,F+16:POKE  252,L+16:PRINT"[208] TO [208]LAY":PRINT"[211][208][193][195][197] TO [197]ND"
  15. 240 GETA$:ON-(A$="")-2*(A$=" ")GOTO240,120:SYS 3436:GOTO120
  16. 250 PRINTT$:C=C+1:N$=CHR$(C):PRINT"[211]AVING "CHR$(34)N$CHR$(34)
  17. 260 OPEN2,D,2,N$+",S,W":POKE  254,F+16:POKE  252,L+16:SYS 3364:GOTO120
  18. 270 PRINTT$:PRINT"[206]AME OF [195]OMBINED [198]ILE":INPUTN$:PRINT"":C=1:A$=""
  19. 280 PRINT"[197]NTER [195]LIP #"C"> ";:INPUTC$
  20. 290 ON-(LEN(C$)<>1)-2*(C$="*")GOTO280,300:A$=A$+C$:C=C+1:GOTO280
  21. 300 PRINTT$:PRINT"[215][207][210][203][201][206][199]":POKE  254,16:POKE  252,207
  22. 310 FORI=1TOC-1:C$=MID$(A$,I,1):PRINT"[204]OADING "CHR$(34)C$CHR$(34)
  23. 320 OPEN2,D,2,C$+",S,R":SYS 3585:CLOSE2:N=PEEK(  254):ON-(N=207)GOTO330:NEXT
  24. 330 PRINT"[211]AVING "N$:OPEN2,D,2,N$+",P,W":PRINT#2,CHR$(0)CHR$(35)CHR$(U);
  25. 340 POKE  254,16:POKE  252,N:SYS 3364:CLOSE2
  26. 350 POKE55,0:POKE56,160:CLR
  27.